home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / peekr174.zip / PEEKER.MRG < prev    next >
Text File  |  1992-09-01  |  2KB  |  41 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * This merge allows you to use PEEKER by Mark Kimes in ANSI color mode!
  3. * PEEKER is an online archive viewer for XBBS, but can be used with RBBS.
  4. * With PEEKER you can let your users view, extract, and even compress and
  5. * download pieces of files!  PEEKER requires a fossil driver but who doesn't
  6. * use one???  It also supports those who multitask.  It can support ANY
  7. * archive - past/present/future - through a configuration file.
  8. * PEEKER is free of charge.
  9. *
  10. * This merge was originally for RBBS-PC 17.3C and has been found to work
  11. * okay with stock RBBS 17.4 (no, I do not run stock code).  It basically just
  12. * writes a "1" to to the temporary file that RBBS-PC writes to view an archive
  13. * and you should pass this as the %3 variable to PEEKER.  See my sample batch
  14. * file to get your feet wet, and Mark's documentation covers it also.  Feel free
  15. * to drop me a note if you run into problems and I'll be glad to lend a hand.
  16. *
  17. * Eddie Rowe 1:19/124@fidonet.org
  18. *
  19. * Merge this against rbbssub2.old to produce rbbssub2.bas
  20. * rbbssub2.old:  Date 6-20-1992  Size 140946 bytes
  21. * ------------[ Created 09-01-1992 15:00:27 ]------------
  22. * REPLACING old line(s) by new
  23. 20148 WasX$ = ZDiskForDos$ + "V" + Ext$ + ".BAT"
  24.       CALL FindIt (WasX$)
  25.       IF NOT ZOK THEN _
  26.          GOTO 20150
  27.       ZGSRAra$(3) = MID$(RIGHT$(ZComPort$,1)+"0",1-ZLocalUser, 1)
  28.       CALL ReadDir (2,1)
  29. * ------[ first line different ]------
  30.       IF ZWasGR = 2 THEN ZPeeker$ = "1" Else ZPeeker$ = "0"          ' ER051701
  31.       IF EOF(2) THEN _
  32.          ZWasZ$ = ZOutTxt$ : _
  33.          ZGSRAra$(1) = ZFileName$ : _
  34.          ZGSRAra$(2) = ZArcWork$ _
  35.       ELSE ZWasZ$ = WasX$ + " " + ZFileName$ + _
  36.                 " " + ZArcWork$ + " " + ZGSRAra$(3) + _              ' ER051701
  37.                 " " + ZPeeker$                                       ' ER051701
  38.       CALL ShellExit (ZWasZ$)
  39.       CALL BufFile (ZArcWork$,WasX)
  40.       RETURN
  41.